home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / RMESM.PLP < prev    next >
Text File  |  1991-08-17  |  3KB  |  107 lines
  1. /* auto pilot program ｢NEM 2.06｣ 1991.4.11 By GOOSE(MAF00070) */
  2. /* %Rmesm { */
  3. /*   [FORUM,LOGPATH,DATE] */
  4. /*  会議室の未読を会議室別にダウンする｡
  5. ** ログの格納先は LOGPATH\FORUM\MESnn.mdd(nn:会議室番号,mdd:月日) */
  6.     var FORUMS[128];var ONEFORUM[8];
  7.     case(DEBUG={Yes},{Yes},{display({->Rmesm\n})});
  8.     case(DEBUG={Yes},{Yes},{display({FORUM=}|FORUM|{\n})});
  9.     case(DEBUG={Yes},{Yes},{display({ONEPROC=}|ONEPROC|{\n})});
  10.  
  11.     %oneforum { [forum] /* 一つのフォーラムにたいする処理 */
  12.     var first[3];first:={Yes};
  13.     type({GO }|forum|{\n});
  14.     loop({
  15.         wait(ABORTTIME,{Abort},
  16.             {\n＞},{im({No})},
  17.             {\nFORUM>},{im({No})},
  18.             {\n続き (改行で表示},{type({\n});im({Yes})},
  19.             {\nmore>},{type({\n});im({Yes})})
  20.     });
  21.     type({SEND OFF\n});
  22.     loop({
  23.         wait(ABORTTIME,{Abort},
  24.             {\n＞},{im({No})},
  25.             {\nFORUM>},{im({No})},
  26.             {\n続き (改行で表示},{type({\n});im({Yes})},
  27.             {\nmore>},{type({\n});im({Yes})})
  28.     });
  29.     type({MES\n});
  30.     loop({
  31.         wait(ABORTTIME,{Abort},
  32.             {番号 (改行で次頁)\n＞},{type({\n});im({Yes})},
  33.             {\nmore>},{type({\n});im({Yes})},
  34.             {\n＞},{im({No})}
  35.         )
  36.     });
  37.     %logdir LOGPATH|{\}|forum|{\MES};
  38.     type({MREAD\n});
  39.  
  40.     loop({
  41.     wait({600},{Abort},
  42.         {\n- },
  43.             {wait({3},{im({Yes})},{ MES(},{wait({3},{im({Yes})},
  44.                 {):},{%temp1 @head(@tail(@laststr,{\n- }),{):});wait({3},{im({Yes})},
  45.                     { -\n},{
  46.                         %temp2 @tail(@laststr,{):});
  47.                         %temp3 {- }|temp1|{):}|@head(temp2,{ -\n})|{ -\n};
  48.                         %temp2 @body(temp3,{MES(},{):});%temp2 temp2+1-1;
  49.                         case(first,{Yes},{first:={No}},{No},{stoprec});
  50.                         write(logdir|temp2|FTYPE,DAYTIME|temp3);
  51.                         receive(logdir|temp2|FTYPE);im({Yes})
  52.                         })
  53.                     })
  54.                 })
  55.             },
  56.         {\n◆現在未読の発言はありません◆},
  57.             {wait({3},{im({Yes})},{\n＞},{im({No})})},
  58.         {\n＞},{
  59.             wait({1},);
  60.             case(@tail(@laststr,{\n})={＞},
  61.                 {Yes},{
  62.                     case(@tail(@laststr,{\n＞\n})={◆次頁はありません◆}|@xc({0d})|@xc({0a})|{＞},
  63.                         {Yes},{
  64.                             stoprec;wait(ABORTTIME,{Abort},{\n＞},{im({No})})},
  65.                         {No},{
  66.                             type({\n});
  67.                             wait({3},{im({Yes})},
  68.                                 {\n◆次頁はありませ},
  69.                                     {stoprec;wait(ABORTTIME,{Abort},{\n＞},{im({No})})})
  70.                         })},
  71.                 {No},{im({Yes})})
  72.             })
  73.         })
  74.     };
  75.  
  76. /* 全フォーラムに対する処理 */
  77.     type({TIME\n});
  78.     wait(ABORTTIME,{Abort},{\n  ご利用時間  },);
  79.     %DAYTIME @tail(@body(@laststr,,{\n  ご利用時間  }),{\n  })|{\n};
  80.     wait(ABORTTIME,{Abort},
  81.         {\n＞},,{\nMAIL>},,{\nHP>},,{\nFORUM>},,{\nBBS>},,{\nCCS(N)>},,{\nLIB>},);
  82.     %DAYTIME CCSLINE|DAYTIME;
  83.     %FTYPE @case(LOGADD={Yes},
  84.         {Yes},{im({.LOG})},{No},{im({.}|DATE)});
  85.     FORUMS:=FORUM;
  86.     loop({
  87.         ONEFORUM:=@head(FORUMS,{,});
  88.         case(DEBUG={Yes},{Yes},{display({ONEFORUM=}|ONEFORUM|{\n})});
  89.         case(ONEFORUM={No},
  90.             {Yes},{
  91.                 case(DEBUG={Yes},{Yes},{display({Rmesm->\n})});
  92.                 im({No})},
  93.             {No},{
  94.                 FORUMS:=@body(FORUMS,{,});
  95.                 oneforum(ONEFORUM);
  96.                 im({Yes})})
  97.     });
  98.     type({SEND ON\n});
  99.     loop({
  100.         wait(ABORTTIME,{Abort},
  101.             {\n＞},{im({No})},
  102.             {\nFORUM>},{im({No})},
  103.             {\n続き (改行で表示},{type({\n});im({Yes})},
  104.             {\nmore>},{type({\n});im({Yes})})
  105.     });
  106. /* }; */
  107.